n01=pwli*namel*asc(staf_name)
cnpt=1
addit=0
do while cnpt<40
   cnpt=cnpt+1
   if cnpt<10
      numb='n0'+str(cnpt,1,0)
   else
      numb='n'+str(cnpt,2,0)
   endif
   if cnpt>pwl1+1
       rdiv=cnpt-(int((cnpt-2)/pwl1)*pwl1)+9
   else
      rdiv=cnpt+9
   endif
   rediv='l'+str(rdiv,2,0)
   if int(cnpt/2)=cnpt/2
      addit=cnpt/2
   else
      addit=41-(int(cnpt/2))
   endif
   &numb=&rediv*(namel+addit)*asc(staf_name)
enddo
